﻿
Imports System.IO
Imports xmlctrl

Public Class doctype_xhtml_1_1
    Inherits doctypebase

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        attribute("html")
        attribute("PUBLIC")
        attribute("""-//W3C//DTD XHTML 1.1//EN""")
        attribute("""http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd""")
    End Sub

    Public Shared Sub unittest()
        Dim inst As doctype_xhtml_1_1 = Nothing
        inst = New doctype_xhtml_1_1()
        Console.WriteLine(inst.ToString())
    End Sub

End Class
